﻿Public Class clsFLBinfo

    Public Function getFlbInfoBySysId(sys_id As String) As DataTable
        Dim szSql As String = "SELECT a.*,b.material_code as flb_material_code FROM sf.b_flb_info a left join sf.b_gt b on a.b_gt_sys_id = b.sys_id WHERE a.sys_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, sys_id)
    End Function

    Public Function getFlbInfoByDlNo(dl_no As String) As DataTable
        Dim szSql As String = "SELECT * FROM sf.b_flb_info WHERE dl_no = ? AND status <> '2'"
        Return DBacs.ExecuteSql(szSql, -1, dl_no)
    End Function


    Public Function selectALlByDL(dl_no As String) As DataTable
        Dim szSql As String = String.Empty
        szSql &= " select *  from  sf.b_flb_info where factory_id =? And  dl_no=? and status<>?	 "
        Return DBacs.ExecuteSql(szSql, -1, "TS", dl_no, "2")
    End Function
End Class
